home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Panorama / Panorama - Disk 01 (1986-02-15)(Pacific North-West Amigas Club)[h AFL][b corrupt files].zip / Panorama - Disk 01 (1986-02-15)(Pacific North-West Amigas Club)[h AFL][b corrupt files].adf / mand2.c < prev    next >
Text File  |  1989-10-24  |  14KB  |  347 lines
  1. /*
  2.                        MAND2.C - Menus
  3.              Mandelbrot Self-Squared Dragon Generator
  4.                     For the Commodore Amiga
  5.                          Version 2.01
  6.  
  7.              Copyright (C) 1985, Robert S. French
  8.             Vastly Enhanced by =RJ Mical=  1985/86
  9.             Copyright (C) 1986,  =Robert J. Mical=
  10.                  Placed in the Public Domain
  11.  
  12.  
  13. This program may be distributed free of charge as long as the above
  14. notice is retained.
  15.  
  16. */
  17.  
  18.  
  19. #include "mand.h"
  20.  
  21.  
  22. struct IntuiText ProjectText[PROJECT_COUNT] =
  23.    {
  24.       {
  25.       0, 1, JAM2, /* frontpen, backpen, drawmode */
  26.       1, 1,       /* left, top */
  27.       NULL,       /* font */
  28.       "Save Picture",
  29.       NULL,       /* next */
  30.       },
  31.     };
  32.  
  33.  
  34. struct IntuiText OptionsText[OPTIONS_COUNT] =
  35.    {
  36.       {
  37.       0, 1, JAM2, /* frontpen, backpen, drawmode */
  38.       1, 1,       /* left, top */
  39.       NULL,       /* font */
  40.       "1/16 size display",
  41.       NULL,       /* next */
  42.       },
  43.       {
  44.       0, 1, JAM2, /* frontpen, backpen, drawmode */
  45.       1, 1,       /* left, top */
  46.       NULL,       /* font */
  47.       "Full-size display",
  48.       NULL,       /* next */
  49.       },
  50.       {
  51.       0, 1, JAM2, /* frontpen, backpen, drawmode */
  52.       1, 1,       /* left, top */
  53.       NULL,       /* font */
  54.       "Redisplay",
  55.       NULL,       /* next */
  56.       },
  57.       {
  58.       0, 1, JAM2, /* frontpen, backpen, drawmode */
  59.       1, 1,       /* left, top */
  60.       NULL,       /* font */
  61.       "Play With Colors",
  62.       NULL,       /* next */
  63.       },
  64.       {
  65.       0, 1, JAM2, /* frontpen, backpen, drawmode */
  66.       1, 1,       /* left, top */
  67.       NULL,       /* font */
  68.       "Stop",
  69.       NULL,       /* next */
  70.       },
  71.       {
  72.       0, 1, JAM2, /* frontpen, backpen, drawmode */
  73.       1, 1,       /* left, top */
  74.       NULL,       /* font */
  75.       "Close display",
  76.       NULL,       /* next */
  77.       },
  78.     };
  79.  
  80. struct IntuiText ZoomText[ZOOM_COUNT] =
  81.    {
  82.       {
  83.       0, 1, JAM2, /* frontpen, backpen, drawmode */
  84.       1, 1,       /* left, top */
  85.       NULL,       /* font */
  86.       "Set Zoom Frame Center",
  87.       NULL,       /* next */
  88.       },
  89.       {
  90.       0, 1, JAM2, /* frontpen, backpen, drawmode */
  91.       1, 1,       /* left, top */
  92.       NULL,       /* font */
  93.       "Set Zoom Frame Size",
  94.       NULL,       /* next */
  95.       },
  96.       {
  97.       0, 1, JAM2, /* frontpen, backpen, drawmode */
  98.       1, 1,       /* left, top */
  99.       NULL,       /* font */
  100.       "Set Zoom Frame Proportional",
  101.       NULL,       /* next */
  102.       },
  103.       {
  104.       0, 1, JAM2, /* frontpen, backpen, drawmode */
  105.       1, 1,       /* left, top */
  106.       NULL,       /* font */
  107.       "Zoom to Current Frame",
  108.       NULL,       /* next */
  109.       },
  110.       {
  111.       0, 1, JAM2, /* frontpen, backpen, drawmode */
  112.       1, 1,       /* left, top */
  113.       NULL,       /* font */
  114.       "Zoom In x 10",
  115.       NULL,       /* next */
  116.       },
  117.       {
  118.       0, 1, JAM2, /* frontpen, backpen, drawmode */
  119.       1, 1,       /* left, top */
  120.       NULL,       /* font */
  121.       "Zoom Out x 2",
  122.       NULL,       /* next */
  123.       },
  124.       {
  125.       0, 1, JAM2, /* frontpen, backpen, drawmode */
  126.       1, 1,       /* left, top */
  127.       NULL,       /* font */
  128.       "Zoom Out x 10",
  129.       NULL,       /* next */
  130.       },
  131.     };
  132.  
  133.  
  134. struct MenuItem ProjectItems[PROJECT_COUNT] =
  135.    {
  136.       {
  137.       NULL,                            /* next menuitem */
  138.       0, ITEM_HEIGHT * 0,              /* select box left, top */
  139.       PROJECT_WIDTH, ITEM_HEIGHT,      /* select box width, height */
  140.       ITEMTEXT | COMMSEQ | ITEMENABLED | HIGHCOMP, /* flags */
  141.       0,                               /* mutual exclude */
  142.       (APTR)&ProjectText[0],           /* text */
  143.       NULL,                            /* select */
  144.       'S',                             /* command */
  145.       NULL,                            /* next item */
  146.       NULL,                            /* next select */
  147.       },
  148.    };
  149.  
  150.  
  151. struct MenuItem OptionsItems[OPTIONS_COUNT] =
  152.    {
  153.       {
  154.       &OptionsItems[1],                /* next menuitem */
  155.       OPTIONS_LEFT, ITEM_HEIGHT * 0,   /* select box left, top */
  156.       OPTIONS_WIDTH, ITEM_HEIGHT,      /* select box width, height */
  157.       ITEMTEXT | COMMSEQ | ITEMENABLED | HIGHCOMP, /* flags */
  158.       0,                               /* mutual exclude */
  159.       (APTR)&OptionsText[0],           /* text */
  160.       NULL,                            /* select */
  161.       'Q',                             /* command */
  162.       NULL,                            /* next item */
  163.       NULL,                            /* next select */
  164.       },
  165.       {
  166.       &OptionsItems[2],                /* next menuitem */
  167.       OPTIONS_LEFT, ITEM_HEIGHT * 1,   /* select box left, top */
  168.       OPTIONS_WIDTH, ITEM_HEIGHT,      /* select box width, height */
  169.       ITEMTEXT | COMMSEQ | ITEMENABLED | HIGHCOMP, /* flags */
  170.       0,                               /* mutual exclude */
  171.       (APTR)&OptionsText[1],           /* text */
  172.       NULL,                            /* select */
  173.       'F',                             /* command */
  174.       NULL,                            /* next item */
  175.       NULL,                            /* next select */
  176.       },
  177.       {
  178.       &OptionsItems[3],                /* next menuitem */
  179.       OPTIONS_LEFT, ITEM_HEIGHT * 2,   /* select box left, top */
  180.       OPTIONS_WIDTH, ITEM_HEIGHT,      /* select box width, height */
  181.       ITEMTEXT | COMMSEQ | ITEMENABLED | HIGHCOMP, /* flags */
  182.       0,                               /* mutual exclude */
  183.       (APTR)&OptionsText[2],           /* text */
  184.       NULL,                            /* select */
  185.       'R',                             /* command */
  186.       NULL,                            /* next item */
  187.       NULL,                            /* next select */
  188.       },
  189.       {
  190.       &OptionsItems[4],                /* next menuitem */
  191.       OPTIONS_LEFT, ITEM_HEIGHT * 3,   /* select box left, top */
  192.       OPTIONS_WIDTH, ITEM_HEIGHT,      /* select box width, height */
  193.       ITEMTEXT | ITEMENABLED | HIGHCOMP, /* flags */
  194.       0,                               /* mutual exclude */
  195.       (APTR)&OptionsText[3],           /* text */
  196.       NULL,                            /* select */
  197.       NULL,                             /* command */
  198.       NULL,                            /* next item */
  199.       NULL,                            /* next select */
  200.       },
  201.       {
  202.       &OptionsItems[5],                /* next menuitem */
  203.       OPTIONS_LEFT, ITEM_HEIGHT * 4,   /* select box left, top */
  204.       OPTIONS_WIDTH, ITEM_HEIGHT,      /* select box width, height */
  205.       ITEMTEXT | ITEMENABLED | HIGHCOMP, /* flags */
  206.       0,                               /* mutual exclude */
  207.       (APTR)&OptionsText[4],           /* text */
  208.       NULL,                            /* select */
  209.       NULL,                            /* command */
  210.       NULL,                            /* next item */
  211.       NULL,                            /* next select */
  212.       },
  213.       {
  214.       NULL,                            /* next menuitem */
  215.       OPTIONS_LEFT, ITEM_HEIGHT * 5,   /* select box left, top */
  216.       OPTIONS_WIDTH, ITEM_HEIGHT,      /* select box width, height */
  217.       ITEMTEXT | COMMSEQ | ITEMENABLED | HIGHCOMP, /* flags */
  218.       0,                               /* mutual exclude */
  219.       (APTR)&OptionsText[5],           /* text */
  220.       NULL,                            /* select */
  221.       'C',                             /* command */
  222.       NULL,                            /* next item */
  223.       NULL,                            /* next select */
  224.       },
  225.    };
  226.  
  227.  
  228. struct MenuItem ZoomItems[ZOOM_COUNT] =
  229.    {
  230.       {
  231.       &ZoomItems[1],                   /* next menuitem */
  232.       ZOOM_LEFT, ITEM_HEIGHT * 0,      /* select box left, top */
  233.       ZOOM_WIDTH, ITEM_HEIGHT,         /* select box width, height */
  234.       ITEMTEXT | ITEMENABLED | HIGHCOMP, /* flags */
  235.       0,                               /* mutual exclude */
  236.       (APTR)&ZoomText[0],              /* text */
  237.       NULL,                            /* select */
  238.       NULL,                            /* command */
  239.       NULL,                            /* next item */
  240.       NULL,                            /* next select */
  241.       },
  242.       {
  243.       &ZoomItems[2],                   /* next menuitem */
  244.       ZOOM_LEFT, ITEM_HEIGHT * 1,      /* select box left, top */
  245.       ZOOM_WIDTH, ITEM_HEIGHT,         /* select box width, height */
  246.       ITEMTEXT | ITEMENABLED | HIGHCOMP, /* flags */
  247.       0,                               /* mutual exclude */
  248.       (APTR)&ZoomText[1],              /* text */
  249.       NULL,                            /* select */
  250.       NULL,                            /* command */
  251.       NULL,                            /* next item */
  252.       NULL,                            /* next select */
  253.       },
  254.       {
  255.       &ZoomItems[3],                   /* next menuitem */
  256.       ZOOM_LEFT, ITEM_HEIGHT * 2,      /* select box left, top */
  257.       ZOOM_WIDTH, ITEM_HEIGHT,         /* select box width, height */
  258.       ITEMTEXT | ITEMENABLED | HIGHCOMP, /* flags */
  259.       0,                               /* mutual exclude */
  260.       (APTR)&ZoomText[2],              /* text */
  261.       NULL,                            /* select */
  262.       NULL,                            /* command */
  263.       NULL,                            /* next item */
  264.       NULL,                            /* next select */
  265.       },
  266.       {
  267.       &ZoomItems[4],                   /* next menuitem */
  268.       ZOOM_LEFT, ITEM_HEIGHT * 3,      /* select box left, top */
  269.       ZOOM_WIDTH, ITEM_HEIGHT,         /* select box width, height */
  270.       ITEMTEXT | ITEMENABLED | HIGHCOMP, /* flags */
  271.       0,                               /* mutual exclude */
  272.       (APTR)&ZoomText[3],              /* text */
  273.       NULL,                            /* select */
  274.       NULL,                            /* command */
  275.       NULL,                            /* next item */
  276.       NULL,                            /* next select */
  277.       },
  278.       {
  279.       &ZoomItems[5],                   /* next menuitem */
  280.       ZOOM_LEFT, ITEM_HEIGHT * 4,      /* select box left, top */
  281.       ZOOM_WIDTH, ITEM_HEIGHT,         /* select box width, height */
  282.       ITEMTEXT | ITEMENABLED | HIGHCOMP, /* flags */
  283.       0,                               /* mutual exclude */
  284.       (APTR)&ZoomText[4],              /* text */
  285.       NULL,                            /* select */
  286.       NULL,                            /* command */
  287.       NULL,                            /* next item */
  288.       NULL,                            /* next select */
  289.       },
  290.       {
  291.       &ZoomItems[6],                   /* next menuitem */
  292.       ZOOM_LEFT, ITEM_HEIGHT * 5,      /* select box left, top */
  293.       ZOOM_WIDTH, ITEM_HEIGHT,         /* select box width, height */
  294.       ITEMTEXT | ITEMENABLED | HIGHCOMP, /* flags */
  295.       0,                               /* mutual exclude */
  296.       (APTR)&ZoomText[5],              /* text */
  297.       NULL,                            /* select */
  298.       NULL,                            /* command */
  299.       NULL,                            /* next item */
  300.       NULL,                            /* next select */
  301.       },
  302.       {
  303.       NULL,                            /* next menuitem */
  304.       ZOOM_LEFT, ITEM_HEIGHT * 6,      /* select box left, top */
  305.       ZOOM_WIDTH, ITEM_HEIGHT,         /* select box width, height */
  306.       ITEMTEXT | ITEMENABLED | HIGHCOMP, /* flags */
  307.       0,                               /* mutual exclude */
  308.       (APTR)&ZoomText[6],              /* text */
  309.       NULL,                            /* select */
  310.       NULL,                            /* command */
  311.       NULL,                            /* next item */
  312.       NULL,                            /* next select */
  313.       },
  314.    };
  315.  
  316.  
  317. struct Menu MainMenu[MENU_COUNT] =
  318.    {
  319.       {
  320.       &MainMenu[1],                    /* next menu */
  321.       5, 0,                            /* select box left, top */
  322.       70, 8,                           /* select box width, height */
  323.       MENUENABLED,                     /* flags */
  324.       "Project",                       /* text */
  325.       &ProjectItems[0],                /* first item */
  326.       0, 0, 0, 0,                      /* for the mystery variables */
  327.       },
  328.       {
  329.       &MainMenu[2],                    /* next menu */
  330.       70 + 5, 0,                       /* select box left, top */
  331.       70, 8,                           /* select box width, height */
  332.       MENUENABLED,                     /* flags */
  333.       "Display",                       /* text */
  334.       &OptionsItems[0],                /* first item */
  335.       0, 0, 0, 0,                      /* for the mystery variables */
  336.       },
  337.       {
  338.       NULL,                            /* next menu */
  339.       70 + 70 + 5, 0,                  /* select box left, top */
  340.       70, 8,                           /* select box width, height */
  341.       MENUENABLED,                     /* flags */
  342.       "Zoom",                          /* text */
  343.       &ZoomItems[0],                   /* first item */
  344.       0, 0, 0, 0,                      /* for the mystery variables */
  345.       },
  346.    };
  347.